home *** CD-ROM | disk | FTP | other *** search
/ Human & Space in Asia / ARIF_ASCI.ISO / pc / tacmahp.dir / 00046_Test Puzzle.ls < prev    next >
Encoding:
Text File  |  1996-09-12  |  490 b   |  19 lines
  1. on TestPuzzle
  2.   global spritelist, Piece, WCellLoc, FirstChannel, spnum, EndWhiteLoc
  3.   set spritelist to []
  4.   set ACount to 1
  5.   repeat while ACount <= EndWhiteLoc
  6.     add(spritelist, ACount - 1)
  7.     set ACount to ACount + 1
  8.   end repeat
  9.   add(spritelist, (Piece * Piece) - 1)
  10.   repeat while ACount <= (Piece * Piece)
  11.     add(spritelist, ACount - 1)
  12.     set ACount to ACount + 1
  13.   end repeat
  14.   set spnum to 8 + FirstChannel
  15.   set WCellLoc to EndWhiteLoc
  16.   SwapPiece()
  17.   RelocatePuzzle()
  18. end
  19.